home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Solutions & Networking Guide / Macintosh Networking Guide / Macintosh Networking Guide / card_2868.txt < prev    next >
Text File  |  1990-04-17  |  11KB  |  463 lines
  1. -- card: 2868 from stack: in
  2. -- bmap block id: 3521
  3. -- flags: 0000
  4. -- background id: 2585
  5. -- name: elevatoropenHall
  6.  
  7.  
  8. -- part 7 (button)
  9. -- low flags: 00
  10. -- high flags: 2002
  11. -- rect: left=385 top=303 right=342 bottom=428
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 18849 / 18849
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Lobby
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to cd "Lobby"
  23. end mouseUp
  24.  
  25. On mouseDown
  26.   global ButtonSND
  27.   play ButtonSND
  28. End mouseDown
  29.  
  30.  
  31. -- part 8 (field)
  32. -- low flags: 00
  33. -- high flags: 0002
  34. -- rect: left=177 top=0 right=23 bottom=333
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 156
  39. -- text size: 18
  40. -- style flags: 16384
  41. -- line height: 21
  42. -- part name: CurrentFloor
  43.  
  44.  
  45. -- part 9 (button)
  46. -- low flags: 00
  47. -- high flags: 0000
  48. -- rect: left=135 top=40 right=303 bottom=374
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: open
  57. ----- HyperTalk script -----
  58. on mouseEnter
  59.   global Help
  60.   put "Connectivity Hall" & return & "click to enter hallway" into bkgnd fld "Tell"
  61.   changeCurs 6069
  62. end mouseEnter
  63.  
  64. on mouseUp
  65.   set cursor to busy
  66.   set lockscreen to true
  67.   go to cd "Hallway1"
  68.   unlock screen with dissolve
  69. end mouseUp
  70.  
  71. On mouseDown
  72.   global ButtonSND
  73.   play ButtonSND
  74. End mouseDown
  75.  
  76. on mouseleave
  77.   put empty into bkgnd fld "Tell"
  78.   changeCurs 69
  79. end mouseLeave
  80.  
  81.  
  82.  
  83.  
  84. -- part 10 (field)
  85. -- low flags: 01
  86. -- high flags: 2002
  87. -- rect: left=3 top=133 right=192 bottom=127
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 156
  92. -- text size: 10
  93. -- style flags: 16384
  94. -- line height: 13
  95. -- part name: Destination
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global env,place,floor,nextFloor,currentFloor,lastFloor
  99.   set cursor to busy
  100.   --‚àÜ Set flag for use in "ElevatorAction" routine
  101.   put currentFloor into lastFloor
  102.   --‚àÜ select and highlight line, customize argument for field number
  103.   put line SelectionAndHiliter(1) of me into nextFloor
  104.   put SelectionAndHiliter() into nextFloorNum
  105.   hide cd button (currentFloor & "Hiliter")
  106.   --‚àÜ Close elevator doors
  107.   set lockscreen to true
  108.   go to cd "elevatorKlosed"
  109.   --‚àÜ Set lights over door in closed elevator
  110.   set the hilite of btn "3  Applications" to false
  111.   set the hilite of btn "2  Network Services" to false
  112.   set the hilite of btn "1  Hardware" to false
  113.   set the hilite of btn "0  Lobby" to false
  114.   set the hilite of button currentFloor to true
  115.   --‚àÜ Set level indicator in closed elevator
  116.   hide cd button "3  ApplicationsHiliter"
  117.   hide cd button "2  Network ServicesHiliter"
  118.   hide cd button "1  HardwareHiliter"
  119.   hide cd button "0  LobbyHiliter"
  120.   show cd button (nextFloor & "Hiliter")
  121.   --‚àÜ Show the environment chosen in lobby
  122.   put env into envTemp
  123.   if env is "Mac" then put "Macintosh" into envTemp
  124.   put envTemp into cd field "envName"
  125.   --‚àÜ Display the floor
  126.   put currentFloor into cd field "currentFloor"
  127.   play "22"
  128.   unlock screen with visual barn door close
  129.   --‚Ä¢ to simulate the door closing before arriving
  130.   --‚Ä¢ at destination JONATHAN
  131.   wait 20
  132.   elevatorAction --‚Ä¢ found in the stack script, JONATHAN
  133.   put line nextFloorNum of cd fld destination into currentFloor
  134.   wait 20
  135.   --‚àÜ Show arrival at chosen floor
  136.   set the lockscreen to true
  137.   if currentFloor is "0  Lobby" then
  138.     go to cd "elevatoropen"
  139.   else
  140.     go to cd "elevatoropenHall"
  141.   end if
  142.   --‚àÜ Set lights over door in open elevator
  143.   set the hilite of btn "3  Applications" to false
  144.   set the hilite of btn "2  Network Services" to false
  145.   set the hilite of btn "1  Hardware" to false
  146.   set the hilite of btn "0  Lobby" to false
  147.   set the hilite of button currentFloor to true
  148.   --‚àÜ Set level indicator in open elevator
  149.   hide cd button "destinationHiliter"
  150.   hide cd button "3  ApplicationsHiliter"
  151.   hide cd button "2  Network ServicesHiliter"
  152.   hide cd button "1  HardwareHiliter"
  153.   hide cd button "0  LobbyHiliter"
  154.   show cd button (nextFloor & "Hiliter")
  155.   --‚àÜ Show floor name over door & env over level selector
  156.   put currentFloor into cd field "currentFloor"
  157.   put envTemp into cd field "envName"
  158.   play "22"
  159.   unlock screen with visual barn door open
  160.   wait 20
  161.   --‚àÜ Exit the elevator
  162.   set lockScreen to true
  163.   if currentFloor is "0  Lobby" then
  164.     go to cd "lobby"
  165.     show cd button "ElevatorThing"
  166.     wait 20
  167.     play "22"
  168.     hide cd button "ElevatorThing"
  169.   else
  170.     go to cd "hallway1"
  171.   end if
  172.   unlock screen with visual dissolve
  173. end mouseUp
  174.  
  175. on mouseEnter
  176.   global Help
  177.   put "Level Button" & return & "click to go to a level" into fld "Tell"
  178.   changeCurs 6069
  179. end mouseEnter
  180.  
  181. On mouseDown
  182.   global ButtonSND
  183.   play ButtonSND
  184. End mouseDown
  185.  
  186. on mouseleave
  187.   put empty into fld "Tell"
  188.   changeCurs 69
  189. end mouseLeave
  190.  
  191.  
  192.  
  193.  
  194. -- part 16 (button)
  195. -- low flags: 00
  196. -- high flags: 0000
  197. -- rect: left=396 top=105 right=171 bottom=482
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: kiosk
  206.  
  207.  
  208. -- part 24 (field)
  209. -- low flags: 01
  210. -- high flags: 0002
  211. -- rect: left=3 top=105 right=128 bottom=127
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 156
  216. -- text size: 14
  217. -- style flags: 16640
  218. -- line height: 18
  219. -- part name: EnvName
  220.  
  221.  
  222. -- part 25 (button)
  223. -- low flags: 80
  224. -- high flags: 4000
  225. -- rect: left=4 top=151 right=165 bottom=126
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: destinationHiliter
  234. ----- HyperTalk script -----
  235. on mouseEnter
  236.   global Help
  237.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  238.   changeCurs 6069
  239. end mouseEnter
  240.  
  241. on mouseleave
  242.   put empty into fld "Tell"
  243.   changeCurs 69
  244. end mouseLeave
  245.  
  246.  
  247.  
  248. -- part 26 (button)
  249. -- low flags: 80
  250. -- high flags: 4000
  251. -- rect: left=4 top=138 right=152 bottom=126
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: 3 applicationsHiliter
  260. ----- HyperTalk script -----
  261. on mouseEnter
  262.   global Help
  263.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  264.   changeCurs 6069
  265. end mouseEnter
  266.  
  267. on mouseleave
  268.   put empty into fld "Tell"
  269.   changeCurs 69
  270. end mouseLeave
  271.  
  272.  
  273.  
  274. -- part 27 (button)
  275. -- low flags: 80
  276. -- high flags: 4000
  277. -- rect: left=4 top=177 right=191 bottom=126
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: 0  lobbyHiliter
  286. ----- HyperTalk script -----
  287. on mouseEnter
  288.   global Help
  289.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  290. end mouseEnter
  291.  
  292. on mouseleave
  293.   put empty into fld "Tell"
  294. end mouseLeave
  295.  
  296.  
  297.  
  298. -- part 28 (button)
  299. -- low flags: 00
  300. -- high flags: 4000
  301. -- rect: left=4 top=138 right=152 bottom=126
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: 3  Applicationshiliter
  310. ----- HyperTalk script -----
  311. on mouseEnter
  312.   global Help
  313.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  314.   changeCurs 6069
  315. end mouseEnter
  316.  
  317. on mouseleave
  318.   put empty into fld "Tell"
  319.   changeCurs 69
  320. end mouseLeave
  321.  
  322.  
  323.  
  324. -- part 29 (button)
  325. -- low flags: 80
  326. -- high flags: 4000
  327. -- rect: left=4 top=164 right=178 bottom=126
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 0
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 16
  335. -- part name: 1  hardwareHiliter
  336. ----- HyperTalk script -----
  337. on mouseEnter
  338.   global Help
  339.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  340.   changeCurs 6069
  341. end mouseEnter
  342.  
  343. on mouseleave
  344.   put empty into fld "Tell"
  345.   changeCurs 69
  346. end mouseLeave
  347.  
  348.  
  349.  
  350. -- part 31 (button)
  351. -- low flags: 80
  352. -- high flags: 4000
  353. -- rect: left=4 top=151 right=165 bottom=126
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: 2  Network Serviceshiliter
  362. ----- HyperTalk script -----
  363. on mouseEnter
  364.   global Help
  365.   put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  366.   changeCurs 6069
  367. end mouseEnter
  368.  
  369. on mouseleave
  370.   put empty into fld "Tell"
  371.   changeCurs 69
  372. end mouseLeave
  373.  
  374.  
  375.  
  376. -- part 32 (field)
  377. -- low flags: 01
  378. -- high flags: 0000
  379. -- rect: left=0 top=0 right=28 bottom=175
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 0
  383. -- font id: 156
  384. -- text size: 18
  385. -- style flags: 2048
  386. -- line height: 24
  387. -- part name: 
  388.  
  389.  
  390. -- part 38 (button)
  391. -- low flags: 00
  392. -- high flags: 2000
  393. -- rect: left=270 top=23 right=35 bottom=285
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 1
  397. -- font id: 0
  398. -- text size: 12
  399. -- style flags: 0
  400. -- line height: 16
  401. -- part name: 2  Network Services
  402.  
  403.  
  404. -- part 39 (button)
  405. -- low flags: 00
  406. -- high flags: 6000
  407. -- rect: left=317 top=23 right=35 bottom=332
  408. -- title width / last selected line: 0
  409. -- icon id / first selected line: 0 / 0
  410. -- text alignment: 1
  411. -- font id: 0
  412. -- text size: 12
  413. -- style flags: 0
  414. -- line height: 16
  415. -- part name: 3  Applications
  416.  
  417.  
  418. -- part 40 (button)
  419. -- low flags: 00
  420. -- high flags: 2000
  421. -- rect: left=222 top=23 right=35 bottom=237
  422. -- title width / last selected line: 0
  423. -- icon id / first selected line: 0 / 0
  424. -- text alignment: 1
  425. -- font id: 0
  426. -- text size: 12
  427. -- style flags: 0
  428. -- line height: 16
  429. -- part name: 1  Hardware
  430.  
  431.  
  432. -- part 41 (button)
  433. -- low flags: 00
  434. -- high flags: 2000
  435. -- rect: left=178 top=23 right=35 bottom=193
  436. -- title width / last selected line: 0
  437. -- icon id / first selected line: 0 / 0
  438. -- text alignment: 1
  439. -- font id: 0
  440. -- text size: 12
  441. -- style flags: 0
  442. -- line height: 16
  443. -- part name: 0  Lobby
  444.  
  445.  
  446. -- part contents for card part 10
  447. ----- text -----
  448. 3  Applications
  449. 2  Network Services
  450. 1  Hardware
  451. 0  Lobby
  452.  
  453. -- part contents for card part 8
  454. ----- text -----
  455. 3  Applications
  456.  
  457. -- part contents for card part 24
  458. ----- text -----
  459. Digital
  460.  
  461. -- part contents for card part 32
  462. ----- text -----
  463.   Inside Elevator